#!/usr/bin/perl 
my $texte="";
my $new_texte="";
my $compteur=0;
while($a=<STDIN>) 
{
  if( $a =~/STOP/) # $a eq "STOP"
  {
        @liste = split (/§/,$texte);
        
        for ($i=0; $i<=$#liste; $i++)
        {
	    if ($liste[$i] ne "")
            {
                $compteur +=1;
		$new_texte .=$compteur."\.". $liste[$i]."\n";
            }
        }
        print $new_texte."\n";
        exit;
    }
   else
  { 
        $texte.="§".$a;
  }
}
